home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / heading.l < prev    next >
Text File  |  2009-01-23  |  657b  |  31 lines
  1. 9000 ╞╒╬├ HEADING ├╠╧╙┼─
  2. 9010   A:=╨┼┼╦(27277); B:=╨┼┼╦(27278)
  3. 9020   ├┴╙┼ A ╧╞
  4. 9030   ╫╚┼╬ 0
  5. 9040     ╥┼╘╒╥╬ 90
  6. 9050   ╫╚┼╬ 129
  7. 9060     ╥┼╘╒╥╬ 89
  8. 9070   ╫╚┼╬ 130
  9. 9080     ╥┼╘╒╥╬ 88-(B ─╔╓ 64)
  10. 9090   ╫╚┼╬ 131
  11. 9100     ╥┼╘╒╥╬ 86-(B ─╔╓ 32)
  12. 9110   ╫╚┼╬ 132
  13. 9120     ╥┼╘╒╥╬ 82-(B ─╔╓ 16)
  14. 9130   ╫╚┼╬ 133
  15. 9140     ╥┼╘╒╥╬ 74-(B ─╔╓ 8)
  16. 9150   ╫╚┼╬ 134
  17. 9160     ╥┼╘╒╥╬ 58-(B ─╔╓ 4)
  18. 9170   ╫╚┼╬ 135
  19. 9180     ╔╞ B<53 ╘╚┼╬
  20. 9190       ╥┼╘╒╥╬ 26-(B ─╔╓ 2)
  21. 9200     ┼╠╙┼ 
  22. 9210       ╥┼╘╒╥╬ 386-(B ─╔╓ 2)
  23. 9220     ┼╬─╔╞ 
  24. 9230   ╫╚┼╬ 136
  25. 9240     ╥┼╘╒╥╬ 322-B
  26. 9250   ╫╚┼╬ 137
  27. 9260     ╥┼╘╒╥╬ (194-(B*2))-(╨┼┼╦(27279) ─╔╓ 128)
  28. 9270   ┼╬─├┴╙┼ 
  29. 9280 ┼╬─╞╒╬├ HEADING
  30. 9290 //
  31.